(etags-file-of-tag): Expand the file name

using the truename of default-directory.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index aefa78c33b19cde2640dd55b26a7ca7b14dcc5fa..80d56df932943269fa2cf8267f6e5ae5d24f7ef2 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1001,7 +1001,8 @@ See documentation of variable `tags-file-name'."
 (defun etags-file-of-tag ()
   (save-excursion
     (re-search-backward "\f\n\\([^\n]+\\),[0-9]*\n")
-    (buffer-substring (match-beginning 1) (match-end 1))))
+    (expand-file-name (buffer-substring (match-beginning 1) (match-end 1))
+                     (file-truename default-directory))))
 
 
 (defun etags-tags-completion-table ()